with Ada.Text_Io; use Ada.Text_Io;
package body Wagons.Bar is

   function Contenance(Bar: Wagon_Bar) return Positive is
   begin
      return Contenance(Wagon(Bar));
   end Contenance;

   function Saisir return Wagon_Bar Is
      W: constant Wagon := Wagons.Saisir;
      Bar: Wagon_Bar(W.Model);
   begin
      Wagon(Bar) := W;
      return Bar;
   end Saisir;

   procedure Afficher( Bar:  Wagon_Bar) is
   begin
      Put_Line("WAGON BAR");
      Wagons.Afficher(Wagon(Bar));
   end Afficher;

end Wagons.Bar;
